home *** CD-ROM | disk | FTP | other *** search
- .key Choice/F
- .bra {
- .ket }
-
- ; (C) Sandro Paolini / s_paolini@pluribus.wupper.de / 4/96
-
- failat 200
- Stack 20000
-
- SetEnv Aufrufstr ""
-
- IF {Choice} EQ "1"
- IF NOT EXISTS ENV:UseText
- SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.2-97:AmigaPlus_CD-ROM_Index/RequestFile drawer=AmigaPlus_CD-ROM_Nr.2-97:System/c title="Text-Anzeiger auswählen"`
- ELSE
- SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.2-97:AmigaPlus_CD-ROM_Index/RequestFile drawer=$UseText title="Text-Anzeiger auswählen"`
- ENDIF
- ENDIF
-
- IF {Choice} EQ "2"
- IF NOT EXISTS ENV:UseGuide
- SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.2-97:AmigaPlus_CD-ROM_Index/RequestFile drawer=AmigaPlus_CD-ROM_Nr.2-97:System/c title="AmigaGuide-Anzeiger auswählen"`
- ELSE
- SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.2-97:AmigaPlus_CD-ROM_Index/RequestFile drawer=$UseGuide title="AmigaGuide-Anzeiger auswählen"`
- ENDIF
- ENDIF
-
- IF {Choice} EQ "3"
- IF NOT EXISTS ENV:UsePic
- SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.2-97:AmigaPlus_CD-ROM_Index/RequestFile drawer=AmigaPlus_CD-ROM_Nr.2-97:System/c title="Bild-Anzeiger auswählen"`
- ELSE
- SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.2-97:AmigaPlus_CD-ROM_Index/RequestFile drawer=$UsePic title="Bild-Anzeiger auswählen"`
- ENDIF
- ENDIF
-
- IF {choice} EQ "4"
- IF NOT EXISTS ENV:UseJPG
- SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.2-97:AmigaPlus_CD-ROM_Index/RequestFile drawer=AmigaPlus_CD-ROM_Nr.2-97:System/c title="JPEG-Anzeiger auswählen"`
- ELSE
- SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.2-97:AmigaPlus_CD-ROM_Index/RequestFile drawer=$UseJPG title="JPEG-Anzeiger auswählen"`
- ENDIF
- ENDIF
-
- IF {choice} EQ "5"
- IF NOT EXISTS ENV:UseAnim
- SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.2-97:AmigaPlus_CD-ROM_Index/RequestFile drawer=AmigaPlus_CD-ROM_Nr.2-97:System/c title="Animations-Player auswählen"`
- ELSE
- SetEnv Aufrufstr `AmigaPlus_CD-ROM_Nr.2-97:AmigaPlus_CD-ROM_Index/RequestFile drawer=$UseAnim title="Animations-Player auswählen"`
- ENDIF
- ENDIF
-
- IF $Aufrufstr NOT EQ ""
- IF {choice} EQ "1"
- SetEnv UseText $Aufrufstr
- ENDIF
- IF {choice} EQ "2"
- SetEnv UseGuide $Aufrufstr
- ENDIF
- IF {choice} EQ "3"
- SetEnv UsePic $Aufrufstr
- ENDIF
- IF {choice} EQ "4"
- SetEnv UseJPG $Aufrufstr
- ENDIF
- IF {choice} EQ "5"
- SetEnv UseAnim $Aufrufstr
- ENDIF
- ENDIF
-